home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / ca29_3.zip / CIS.CMD < prev    next >
OS/2 REXX Batch file  |  1992-10-25  |  2KB  |  56 lines
  1. S0 = 3                ; The dialing directory entry # for CIS
  2. LEGEND " CIS.CMD"               ; Put script name on status bar...
  3. ;
  4. ; ----- CIS: Dial Compuserve (CIS) by direct connect
  5. ;    (not written to connect through Sprintnet or Tymnet)
  6. ; ----------------------------------------------------------------
  7. ;    Note: You must edit the values above to reflect your call.
  8. ;    Variable S0 determines the entry # being dialed
  9. ; ----------------------------------------------------------------
  10. ;    Note: This script uses a LOGON file prepared by MKLOGON,
  11. ;    if one is available.
  12. ; ----------------------------------------------------------------
  13. ;    Note: This script is written to be FCALLed, executed directly (F2)
  14. ;    or attached to a dialing directory entry (for manual execution).
  15. ; ----------------------------------------------------------------
  16. ;    Note: This script requires no other script.
  17. ; ----------------------------------------------------------------
  18. ;    S0 is modified by this script.
  19. ; ----------------------------------------------------------------
  20. ;
  21. ;    Dial CIS directly
  22. ;
  23.     LEGEND " Dialing CIS direct..."
  24.     IF NOT linked
  25.        DIAL S0        ; Dial directory number above (1st line)
  26.        IF FAILED EXIT    ; IF esc out, terminate script
  27.        ENDIF
  28. ;
  29. ;    Set initial settings
  30. ;
  31.     SET 25            ; VidTex doesn't like 43
  32.     SET MASK ON        ; Turn on high bit mask
  33.     SET CDISPLAY OFF    ; disable ctl char displau
  34.     EMULATE VIDTEX        ; Make up/downloads automatic
  35. ;
  36. ;    Now - wait for the user ID prompt
  37. ;
  38.     PAUSE "3"               ; Wait for the modem to settle down
  39.     TRANSMIT "!"            ; Transmit Carriage return <CR>
  40.     WAITFOR "Host"          ; Wait 1 sec
  41.     TRANSMIT "CIS!"         ; Respond CIS
  42. ;
  43. ;    Send name and password
  44. ;
  45.     WAITFOR "User ID:"      ; Wait for the 'USER ID' prompt
  46. ;
  47. ;    If we have a CISLOGON file, use it
  48. ;
  49.     SET TTHRU OFF        ; Let psw be typed
  50.     IF ISSCFILE "CISLOGON" FCALL "CISLOGON"
  51. ;
  52. ;    Exit - this script may be fcalled
  53. ;
  54.     IF FCALLED FRETURN    ; Return to caller if called
  55.     ALARM            ; Otherwise, sound alarm - we're done
  56.